10 L(1)=1193:L(2)=1273:L(3)=1353:C$(1)=""
11 C$(2)=C$(1)+"":C$(3)=C$(2)+"":C$=C$(1)
12 BO=53280:SC=53281:CO=54272:SC(1)=15:SC(2)=0:SC(3)=7:BO(1)=13:BO(2)=2
15 BO(3)=9
17 FORT=COTOCO+24:POKET,0:NEXT:POKECO+24,15:POKECO+5,17:POKECO+6,241:POKECO,30
18 POKECO+1,10
110 POKEBO,6:POKESC,7:PRINT"[147]"C$"[145][145][145][145][145]BOWLING!"
112 PRINT"HOW MANY PLAYERS (1-3)
113 [161]A$:A[178][197](A$):[139]A[179]1[176]A[177]3[167]113
115 X$[178]"NAMES":[139]A[178]1[167]X$[178]"NAME"
118 [153]"LOADTYPE IN YOUR ";X$
120 [129]X[178]1[164]A
121 [153]"PLAYER"X":";
122 [133]A$(X)
123 A$(X)[178][200](A$(X),6):[130]
128 [153]"LOAD1 2 3 4 5 6 7 8 9 10  WAIT ":[153]"";
129 [129]X[178]1[164]10:[153]"1WAIT2";:[130]:[153]"3WAIT"
132 [153][163]8)" STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$":[153][163]9)"STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$"
133 [145][171](A[178]1)[137]138
134 [153][163]8)" STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$":[145][171](A[178]2)[137]138
136 [153][163]8)" STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$
138 PRINTLEFT$(C$,12)+" "+A$(1)":"
146 IFA>1THENPRINTTAB(14)+"[145]"+A$(2)":"
150 IFA>2THENPRINTTAB(27)"[145]"+A$(3)":"
154 PRINTLEFT$(C$,12)"[198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198][198]"
156 PRINT"[197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197]"
160 FORQ=1TO10
166 FORZ9=1TOA:POKESC,SC(Z9):POKEBO,BO(Z9)
167 FORX=1TO10:READV:POKEV,81:POKEV+CO,6:NEXT:RESTORE
169 J=0:G=0
170 GOSUB430:GOSUB550:P=L(Z9):GOSUB1000:L(Z9)=P
172 GOSUB1200
174 ON-(L(Z9)/2=INT(L(Z9)/2))GOTO169
175 IF(PEEK(L(Z9)-1)=47ANDQ=10)=0THEN195
178 PRINTLEFT$(C$,12)+""+A$(Z9)+", THROW ONE MORE!"
180 FORX=1TO3000:NEXT
182 PRINTLEFT$(C$,12)+""+"                       "
183 REM  PRINT"             "
184 FORX=1TO10:READV:POKEV,81:POKEV+CO,6:NEXT:RESTORE
190 J=0:GOSUB430:GOSUB550:T(Z9)=T(Z9)+J:PRINTC$(Z9);T(Z9)
192 K=J+48:IFJ+PEEK(L(Z9)-1)-224=10THENK=47
193 IFK=58THENK=152
194 POKEL(Z9),K:POKEL(Z9)+CO,4:GOTO225
195 U=0:IF(PEEK(L(Z9)-2)=152ANDQ=10)=0THEN225
198 PRINTLEFT$(C$,12)+""+A$(Z9)+", THROW TWO MORE!"
202 FORX=1TO3000:NEXT
203 PRINTLEFT$(C$,12)+""+"                       "
206 L(Z9)=L(Z9)-1
207 FORX=1TO10:READV:POKEV,81:POKEV+CO,6:NEXT:RESTORE
209 J=0:GOSUB430:GOSUB550:T(Z9)=T(Z9)+J:PRINTC$(Z9);T(Z9)
210 K=J+176:IFK=186THENK=152
211 POKEL(Z9),K:POKEL(Z9)+CO,4:L(Z9)=L(Z9)+1
213 IFPEEK(L(Z9)-1)=152THENFORX=1TO10:READV:POKEV,81:POKEV+CO,6:NEXT:RESTORE
214 U=U+1:ONUGOTO209,225
225 NEXTZ9:NEXTQ
230 GOTO882
430 N=1827:I=40
440 POKEN,32:N=N+I:IFN<1624ORN>1868THENI=-I
460 POKEN+CO,-(PEEK(SC)=240):POKEN,81:GETA$:ON-(A$="")GOTO440:RETURN
550 N=N+1:GETA$
554 IFPEEK(N)<>81THEN595
558 Q2=N:GOSUB610
560 POKECO+4,17:POKEN-1,32:POKEN+CO,-(PEEK(SC)=240):POKEN,81:POKECO+4,16
562 FORW=1TO3
566 IFPEEK(N-39*W)=81THENQ2=N-39*W:GOSUB610
569 IFPEEK(N+41*W)=81THENQ2=N+41*W:GOSUB610
572 NEXT
595 POKECO+4,17:H=H+1:POKEN-1,32:POKEN+CO,-(PEEK(SC)=240):POKEN,81:POKECO+4,16
597 IFH=36THEN612
600 GOTO550
610 J=J+1:POKECO+4,33:POKEQ2,32:FORT=1TO50:NEXT:POKECO+4,32:RETURN
612 H=0:POKEN,32:POKEN-1,32:RETURN
882 PRINTC$;"[156]FINAL SCORES"
883 PRINT""A$(1);T(1):IFA>1THENPRINT""A$(2);T(2)
884 IFA=3THENPRINT"";A$(3);T(3)
887 PRINT"AGAIN (Y/N)?"
894 GETA$:IFA$=""THEN     894
895 IFA$="Y"THENRUN
896 SYS2048
1000 G=J:IFP/2<>INT(P/2)THENG=G+176
1002 IFG=186THENG=152
1004 IFP/2=INT(P/2)THENG=G+48
1006 IFG+PEEK(P-1)-224=10THENG=47
1012 POKEP,G:POKEP+CO,4:IFG=152THENP=P+1:G=0
1100 P=P+1:RETURN
1200 REM ** SCORING *
1201 T(Z9)=T(Z9)+J
1205 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-2)=47)
1210 T(Z9)=T(Z9)-10*(PEEK(L(Z9)-3)=47ANDPEEK(L(Z9)-2)=152)
1220 IFL(Z9)=1272ORL(Z9)=1352ORL(Z9)=1432THEN1290
1225 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-4)=152)
1227 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-3)=152)
1228 T(Z9)=T(Z9)-J*((PEEK(L(Z9)-5)=152ANDPEEK(L(Z9)-3)=152))
1230 T(Z9)=T(Z9)-J*(PEEK(L(Z9)-6)=152ANDPEEK(L(Z9)-4)=152ANDPEEK(L(Z9)-2)=152)
1290 PRINTC$(Z9);T(Z9)
1300 RETURN
2200 DATA 1661,1700,1739,1741,1778,1780,1819,1821,1860,1901